home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1159.ZIP / DBSELECT.PRG < prev    next >
Text File  |  1986-07-17  |  807b  |  40 lines
  1. DBNAME='DATA'+NCHR
  2. INDEX1=DBNAME+'TV'
  3. INDEX2=DBNAME+'SN'
  4. SELECT 1
  5. USE
  6. USE &DBNAME INDEX &INDEX1,&INDEX2
  7. SELECT 3
  8. USE DATAOPTN
  9. GO VAL(NCHR)
  10.   SPACING=SPACIN
  11.   PAPEROUT=PAPEROU
  12.   DUPREC=DUPRE
  13.   TVAID=TVAI
  14.   SERID=SERI
  15.   INSTNAME=TRIM(INSTNAM)
  16.   TVANUMBER=TRIM(TVANUMBE)
  17.   SERIALNUM=TRIM(SERIALNU)
  18.   OSS=TRIM(OS)
  19.   CALIBDATE=TRIM(CALIBDAT)
  20.   DUEDATE=TRIM(DUEDAT)
  21.   CALINTERVL=TRIM(CALINTERV)
  22.   LOCATNAME=TRIM(LOCATNAM)
  23.   REMARKNM=TRIM(REMARKN)
  24.   CATEGORY1=TRIM(CATEGOR1)
  25.   CATEGORY2=TRIM(CATEGOR2)
  26.   CATEGORY3=TRIM(CATEGOR3)
  27.   SUBCAT1=TRIM(SUBCA1)
  28.   SUBCAT2=TRIM(SUBCA2)
  29.   SUBCAT3=TRIM(SUBCA3)
  30.   SUB1ABB=LTRIM(TRIM(SUB1AB))
  31.   SUB2ABB=LTRIM(TRIM(SUB2AB))
  32.   SUB3ABB=LTRIM(TRIM(SUB3AB))
  33.   CAT3ABB=LTRIM(TRIM(CAT3AB))
  34.   TITLE1=TRIM(TITLE)
  35. USE
  36. SELECT 2
  37. USE
  38. USE REPWORK
  39. RETURN
  40.